Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d3/dbmail.arc/ML001.PRG

Text File | 1988-06-19 | 3.4 KB | 98 lines

NOTE ML001 - REBUILD PARAMETERS    FROM FILE ML001.MEM    9/27/84
STORE '         ' TO D
STORE F    TO XXF
ERASE
@ 5,10 SAY 'W E L C O M E   T O   L I S T   M A N A G E R'
@ 7,12 SAY 'PRINTER CONFIGURATION MENU'
@ 10,10 SAY '1 - OkiData 8x/9x'
@ 11,10 SAY '2 - NEC 8023/8025'
@ 12,10 SAY '3 - Gemini FX10/15'
@ 17,40 SAY '99 - Printer not on Menu'
STORE 0 TO SEL
@ 20,0 SAY 'ENTER SELECTION' GET SEL PICTURE '99'
READ
DO CASE
CASE SEL=1
    STORE CHR(30) TO STANDARD
    STORE CHR(29) TO CONDENSE
CASE SEL=2
    STORE CHR(27)+'N'+CHR(15)    TO STANDARD
    STORE CHR(27)+'Q'+CHR(15)    TO CONDENSE
CASE SEL=3
    STORE CHR(20)+CHR(27)+CHR(53)+CHR(27)+CHR(66)+CHR(1)    TO STANDARD
    STORE CHR(20)+CHR(27)+CHR(53)+CHR(27)+CHR(66)+CHR(3)    TO CONDENSE
OTHERWISE
ERASE
@ 5, 10 SAY 'C U S T O M   P R I N T E R   I N S T A L L A T I O N'
@ 8,10 SAY 'The system prints several reports in condensed mode (17 cpi).'
@ 10,10 SAY 'The program will shift the printer into the condensed print'
@ 12,10 SAY 'mode and back again if you can tell it the code to perform'
@ 14,10 SAY 'these functions. Consult your printer manual for the correct'
@ 16,10 SAY 'code sequence.'
STORE 'Y'    TO SEL
@ 18,15 SAY 'Do you want to enter printer control codes? (Y/N) ' GET SEL PICTURE '!'
READ
ERASE
IF SEL='Y'
    @ 5,10 SAY 'E N T E R   P R I N T E R   C O N T R O L   C O D E S'
    @ 8,10 SAY 'Instructions:'
    @ 10,10 SAY 'The control codes are entered, one byte at a time.'
    @ 11,12 SAY 'Each code is entered in its decimal equivalent. If'
    @ 12,12 SAY 'your manual gives hexadecimal or alphabetic codes, each'
    @ 13,12 SAY 'code will have to be converted to its decimal equi-'
    @ 14,12 SAY 'valent. Consult the back of the manual for assistance.'
    @ 16,10 SAY 'When prompted, enter the decimalized codes, one at a time,'
    @ 17,12 SAY 'pressing the <cr> key after each code. End the entry'
    @ 18,12 SAY 'by pressing the <cr> key.'
    @ 20,0 SAY 'Shift Printer into STANDARD Print mode:'
    STORE 10    TO L
    STORE F    TO EXIT
    STORE ' '    TO STANDARD
    DO WHILE .NOT.EXIT
    STORE '    '    TO SEL
    @ 23,0 SAY 'Enter Decimalized Print Code. <cr> when Done. ' GET SEL PICTURE '9999'
    READ
    CLEAR GETS
    STORE SEL='    '    TO EXIT
    IF .NOT.EXIT
        @ 21,L SAY VAL(SEL) USING '999'
        STORE STANDARD+CHR( VAL(SEL))    TO STANDARD
        STORE L+4    TO L
        ENDIF
    ENDDO
    @ 20,0 SAY 'Shift Printer into CONDENSE Print mode:'+CHR(7)
    @ 21,0
    STORE 10    TO L
    STORE F    TO EXIT
    STORE ' '    TO CONDENSE
    DO WHILE .NOT.EXIT
    STORE '    '    TO SEL
    @ 23,0 SAY 'Enter Decimalized Print Code. <cr> when Done. ' GET SEL PICTURE '9999'
    READ
    CLEAR GETS
    STORE SEL='    '    TO EXIT
    IF .NOT.EXIT
        @ 21,L SAY VAL(SEL) USING '999'
        STORE CONDENSE+CHR( VAL(SEL))    TO CONDENSE
        STORE L+4    TO L
        ENDIF
    ENDDO
ELSE
    @ 8,10 SAY 'NO PRINTER CONTROL CODES ENTERED.'
    @ 10,10 SAY "It is the User's responsibility to manually set the"
    @ 12,12 SAY 'printer into the condensed print mode when printing'
    @ 14,12 SAY 'reports from Menu Option 3, Print Reports.'
    WAIT
    STORE ' '    TO STANDARD,CONDENSE
    ENDIF
ENDCASE

ERASE
@ 8,10 SAY 'To force reconfiguration of the Printer Control Codes,'
@ 10,10 SAY 'Erase the file ML001.MEM.'
WAIT
RELEASE L,EXIT
RETURN
ASE L,EXIT
RETURN